home *** CD-ROM | disk | FTP | other *** search
/ Programmers Heaven 2 / Programmers Heaven 2.iso / files / windows / ocx / ipack.exe / MSGRNGV.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-10  |  4.6 KB  |  147 lines
  1. VERSION 4.00
  2. Begin VB.Form MsgRange 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Message Range"
  6.    ClientHeight    =   1455
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   3690
  10.    BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  11.       Name            =   "MS Sans Serif"
  12.       Size            =   8.25
  13.       Charset         =   0
  14.       Weight          =   700
  15.       Underline       =   0   'False
  16.       Italic          =   0   'False
  17.       Strikethrough   =   0   'False
  18.    EndProperty
  19.    ForeColor       =   &H80000008&
  20.    Height          =   1860
  21.    Left            =   1035
  22.    LinkTopic       =   "Form2"
  23.    ScaleHeight     =   1455
  24.    ScaleWidth      =   3690
  25.    Top             =   1140
  26.    Width           =   3810
  27.    Begin VB.CommandButton Cancel 
  28.       Appearance      =   0  'Flat
  29.       BackColor       =   &H80000005&
  30.       Cancel          =   -1  'True
  31.       Caption         =   "Cancel"
  32.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  33.          Name            =   "MS Sans Serif"
  34.          Size            =   8.25
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   285
  42.       Left            =   2355
  43.       TabIndex        =   5
  44.       Top             =   660
  45.       Width           =   840
  46.    End
  47.    Begin VB.CommandButton Ok 
  48.       Appearance      =   0  'Flat
  49.       BackColor       =   &H80000005&
  50.       Caption         =   "Ok"
  51.       Default         =   -1  'True
  52.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   285
  62.       Left            =   2355
  63.       TabIndex        =   4
  64.       Top             =   330
  65.       Width           =   840
  66.    End
  67.    Begin VB.TextBox Last 
  68.       Appearance      =   0  'Flat
  69.       Height          =   285
  70.       Left            =   990
  71.       TabIndex        =   3
  72.       Top             =   690
  73.       Width           =   1170
  74.    End
  75.    Begin VB.TextBox First 
  76.       Appearance      =   0  'Flat
  77.       Height          =   300
  78.       Left            =   1005
  79.       TabIndex        =   2
  80.       Top             =   315
  81.       Width           =   1170
  82.    End
  83.    Begin VB.Label Label1 
  84.       Alignment       =   1  'Right Justify
  85.       Appearance      =   0  'Flat
  86.       BackColor       =   &H00C0C0C0&
  87.       Caption         =   "Last:"
  88.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  89.          Name            =   "MS Sans Serif"
  90.          Size            =   8.25
  91.          Charset         =   0
  92.          Weight          =   400
  93.          Underline       =   0   'False
  94.          Italic          =   0   'False
  95.          Strikethrough   =   0   'False
  96.       EndProperty
  97.       ForeColor       =   &H80000008&
  98.       Height          =   225
  99.       Index           =   1
  100.       Left            =   -45
  101.       TabIndex        =   1
  102.       Top             =   750
  103.       Width           =   915
  104.    End
  105.    Begin VB.Label Label1 
  106.       Alignment       =   1  'Right Justify
  107.       Appearance      =   0  'Flat
  108.       BackColor       =   &H00C0C0C0&
  109.       Caption         =   "First:"
  110.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.          Name            =   "MS Sans Serif"
  112.          Size            =   8.25
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       ForeColor       =   &H80000008&
  120.       Height          =   225
  121.       Index           =   0
  122.       Left            =   -45
  123.       TabIndex        =   0
  124.       Top             =   360
  125.       Width           =   915
  126.    End
  127. Attribute VB_Name = "MsgRange"
  128. Attribute VB_Creatable = False
  129. Attribute VB_Exposed = False
  130. Option Explicit
  131. Private Sub Cancel_Click()
  132.     MailForm.Flag = 0
  133.     Unload Me
  134. End Sub
  135. Private Sub First_GotFocus()
  136.     First.SelStart = 0
  137.     First.SelLength = Len(First.Text)
  138. End Sub
  139. Private Sub Last_GotFocus()
  140.     Last.SelStart = 0
  141.     Last.SelLength = Len(Last.Text)
  142. End Sub
  143. Private Sub Ok_Click()
  144.     MailForm.Flag = 1
  145.     Unload Me
  146. End Sub
  147.